home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1999 March
/
EnigmA AMIGA RUN 35 (1999)(G.R. Edizioni)(IT)[!][issue 1999-03].iso
/
earcd
/
grafica
/
amicad
/
arexx
/
calc.amicad
< prev
next >
Wrap
Text File
|
1999-01-01
|
653b
|
16 lines
/* calculatrice en virgule flottante */
/* Chez Corbin, 7 février 1999, version 1.00 */
options results
if ~show('L','rexxmathlib.library') then
call addlib('rexxmathlib.library',0,-30)
cr='0a'x
p='"Effectuez la saisie du'cr'calcul à effectuer.'cr'Opérateurs : * / + - // ** %'cr'Fonctions : abs acos acosh asin asinh'cr'atan atanh ceil cos cosh cot cotan'cr'csc exp fabs fact floor int'cr'ln log10 nint pow(x,y) sec'cr'sin sinh sqrt tan tanh"'
'ASKTEXT('p',"")'
calcul=result
if calcul="" then exit
resultat = calc.rexx(calcul)
'REQUEST("'calcul' = 'resultat||cr'Voulez-vous écrire'cr'ce résultat ?")'
if result="1" then 'WRITE("'resultat'",0,0)'